home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / MPUKK.ARC / CH T 39 4 ERR (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  269b  |  8 lines
  1. 10 PRINT"[147]":OPEN15,8,15,"UI":PRINT#15,"I"
  2. 20 PRINT#15,"M-W"CHR$(6)CHR$(0)CHR$(1)CHR$(39)
  3. 30 PRINT#15,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(128)
  4. 40 PRINT#15,"M-R"CHR$(0)CHR$(0):GET#15,A$:A=ASC(A$+CHR$(0)):IFA>127THEN40
  5. 50 ERR=A+18:PRINT#15,"I":CLOSE15
  6. 60 IF ERR <> 20 THEN PRINT"[147] ERROR NOT FOUND":END
  7. 70 IF ERR = 20 THEN PRINT"[147] ERROR FOUND ON TRACK 39":END
  8.